home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Unix / prettyprinter.perl < prev    next >
Text File  |  1993-05-21  |  9KB  |  179 lines
  1. #Newsgroups: comp.archives.admin,comp.sys.mac.misc
  2. #Subject: Pretty-printer for mac.archive.umich.edu listings
  3. #From: jonathan@cs.pitt.edu (Jonathan Eunice)
  4. #Date: 31 Jan 93 17:46:19 GMT
  5. #Followup-To: comp.archives.admin
  6. #Distribution: na
  7. #Organization: University of Pittsburgh Computer Science
  8. #
  9. #
  10. #The following is a perl script that beautifies the listings
  11. #periodically published in comp.archvies of new files at
  12. #mac.archive.umich.edu.  These listings are very helpful, but printed in
  13. #an ugly and hard-to-use format, IMHO.  This program fixes all that.
  14. #Requires perl (of course) and a wide screen or window (output is ~120
  15. #cols).
  16. #
  17. #
  18. #
  19. #
  20. #--------------- CUT HERE ------------------
  21. #!/usr/local/bin/perl
  22.  
  23. # mac-listing
  24. #
  25. # Perl script to pretty-print mac.archive.umich.edu listings
  26. # of Mac files.  Output is ~120 columns--REQUIRES wide screen
  27. # or window to be of any use whatever.
  28.  
  29. # To use:  Save archive announcements to a file,
  30. # say 'macfiles'.  Trim mail headers/trailers.  Then run 
  31. # 'mac-listing macfiles'.  Sample output follows:
  32.  
  33. # File                          Path                                Comment
  34. # ---------------------------------------------------------------------------------------------------------------------
  35. # epsfibmpctomac1.01.sit.hqx    /mac/graphics/graphicsutil/         Translators to convert between different types of
  36. #                                                                   EPSF (encapsulated PostScript) files.  For use with
  37. #                                                                   Apple File Exchange.
  38. # 
  39. # macghostscript2.52.cpt.hqx    /mac/graphics/graphicsutil/         A port of the Free Software Foundation's
  40. #                                                                   Ghostscript -- a general- purpose PostScript
  41. #                                                                   interpreter.  Includes fonts.  Minimal interface.
  42. #                                                                   Requires Color QuickDraw.
  43. # 
  44. # randomdotstereograms2.4.sit.h /mac/graphics/graphicsutil/         Software to view Random Dot Autostereograms (RDAs),
  45. #                            qx                                     images that contain three dimensional information
  46. #                                                                   in a single image instead of a pair of images
  47. #                                                                   typically refered to as a stereo pair.  Several
  48. #                                                                   images provides, and can also generate the same
  49. #                                                                   images as provided. Slow, slow, slow, slow, slow
  50. #                                                                   (but there isn't much else out there). Includes
  51. #                                                                   versions for Macs with and without math
  52. #                                                                   coprocessors.
  53. # 
  54. # dithercomparison.sit.hqx      /mac/hypercard/organization/        Demonstrate the difference in quality between
  55. #                                                                   standard Color QuickDraw dithering and QuickTime's
  56. #                                                                   "fast dithering." Requires QuickTime and HyperCard
  57. #                                                                   2.0.
  58. # 
  59. # garton.cpt.hqx                /mac/system.extensions/font/type1/  Size:  18, 24, 36, 48 A semi-script serif display
  60. #                                                                   font with a full set of  characters, numbers,
  61. #                                                                   punctuation, a few ligatures, and a helping of
  62. #                                                                   upper- and lower-case swash characters. Nice.
  63. #                                                                   Includes TrueType.
  64.  
  65.  
  66.  
  67. # This program is in the public domain.  Do with it what you will.
  68. # Written by Jonathan Eunice (jonathan@cs.pitt.edu), who finds it
  69. # useful and hopes you will too.  If you don't, too bad!
  70. # Author makes no warranties whatever.  Use at your own risk.
  71.  
  72.  
  73.  
  74. $= = 999999;    # infinite page length, only one output header
  75.         # change to 60 or so for one header per page
  76.  
  77. # scan input files
  78.  
  79. $first = 1;
  80. while (<>) {
  81.     chop;
  82.     if (m=^/=) {        # pathname -- starts new entry
  83.         if (!$first) {
  84.             $arr{$pathname} = $comment;
  85.         }
  86.         $pathname = $_;
  87.         $first = 0;
  88.         undef($comment);
  89.     }
  90.     elsif (/^\s*$/) {    # blank line
  91.         next;        # skip it
  92.     }
  93.     elsif (/^\s*\d+\s+\d+\/\d+\/\d+\s+[\w\d]+/) {    # Infoline
  94.         next;        # skip it
  95.     }
  96.     else {             # must be comments 
  97.         m/^\s*(\S.*)\s*$/;    # take only good stuff
  98.         $comment = "$comment $1"; # append to comment
  99.     }
  100.         
  101. }
  102.  
  103. # now sort and print
  104.  
  105. @keys = keys(%arr);
  106. @keys = sort(@keys);
  107. foreach $key (@keys) {
  108.     $key =~ m=^(/.+/)([\w\.]+)\s*$=;    # find line components
  109.     $path = $1;
  110.     $filename = $2;
  111.     $comment = $arr{$key};
  112.     $comment =~ s/^\s*//;
  113.     write;                # print line components
  114. }
  115.  
  116.  
  117. # Sample input lines follow. 
  118. # 
  119. # /mac/game/board/lineup2.01.cpt.hqx
  120. #   98     1/19/93    BinHex4.0,Compact1.33
  121. #  
  122. #    Connect Four.  You can play two player, or you vs. the computer, or
  123. #    the computer vs. itself. Various degrees of difficulty.  Includes
  124. #    option for play on a network.
  125. #  
  126. # /mac/misc/demo/rightontime1.5.cpt.hqx
  127. #  112     1/19/93    BinHex4.0,Compact1.33
  128. #  
  129. #    An application that provides To-Do List, Calendar, and Reminder
  130. #    features.  Demo version is limited to five records.
  131. #  
  132. # /mac/system.extensions/chooser/chucksdrivers1.00d.sit.hqx
  133. #   63     1/19/93    BinHex4.0,StuffIt1.5.1
  134. #  
  135. #    Printer drivers that work with Panasonic/Epson 9 and 24 pin
  136. #    printers and compatibles for both text and graphics.
  137.  
  138.  
  139.  
  140. # Output formats.
  141.  
  142. format STDOUT_TOP =
  143. File                          Path                                Comment
  144. ---------------------------------------------------------------------------------------------------------------------
  145. .
  146.  
  147. format STDOUT = 
  148. ^<<<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  149. $filename,                    $path,                              $comment
  150. ^>>>>>>>>>>>>>>>>>>>>>>>>>...~^>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>... ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  151. $filename,                    $path,                              $comment
  152. ~                                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  153.                                                                   $comment
  154. ~                                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  155.                                                                   $comment
  156. ~                                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  157.                                                                   $comment
  158. ~                                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  159.                                                                   $comment
  160. ~                                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  161.                                                                   $comment
  162. ~                                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  163.                                                                   $comment
  164. ~                                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  165.                                                                   $comment
  166. ~                                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  167.                                                                   $comment
  168. ~                                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  169.                                                                   $comment
  170. ~                                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  171.                                                                   $comment
  172. ~                                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<...
  173.                                                                   $comment
  174.  
  175. .
  176. # dont delete almost-invisible line above!!
  177.  
  178. # end of perl script 
  179.